library(ggplot2)

dfTC<-read.csv("1L2_time_course.csv")

#create line plot
ggplot(dfTC, aes(x=Time, y=DNA_quantification, color = Sample, group = Sample)) +
  geom_point(aes(shape=Sample, color=Sample), size=3, stroke = 1.4, show.legend = T)+
  geom_line(size=0.6)+
  geom_errorbar(data = dfTM, aes(ymin=DNA_quantification-StDev, ymax=DNA_quantification+StDev), width=1)+
  scale_color_manual(values= c("salmon", "seagreen3", "thistle4"))+scale_shape_manual(values=c(7, 4, 9))+
  scale_y_continuous(limits= c(0,200))+ scale_x_continuous(breaks = c(0,10,20,30,40,50,60,70,80))+
  theme_minimal() +
  labs(
    title = "Time course",
    x = "Time (min)",
    y = "DNA quantification (ng)"
  )+
  theme(axis.text.x = element_text(size = 16), axis.text.y = element_text(size = 16), axis.title.y = element_text(size=20), axis.title.x = element_text(size=20), title = element_text(size = 16), legend.title = element_blank(), legend.text = element_text(size=16), legend.position = c(0.65, 0.7),legend.key.height = unit(0.9, "cm"), plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))

ggsave("TimeCourse.pdf", width = 30, height = 15, units = "cm")